home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / comm / www / webPlugSi.lha / webPlug_1.45 / install / Install_webPlug.si < prev   
Encoding:
Text File  |  1998-09-21  |  12.1 KB  |  515 lines
  1. ;Install script for WebPlug version 1.45 © 1998 Esteve Boix
  2. ;This install script is © Bo Liljegren (bosse@algonet.se)
  3. ;Updated 04/98 Esteve Boix (again :)
  4. ;
  5. ;Translated into Slovenian language on 21.09.98 by Damir Arh of
  6. ;Amiga Computer Club D.A.D. Kranj, Slovenia
  7.  
  8. (complete 0)
  9.  
  10. ;Pure sequrity. If the Installer, by some strange reason,
  11. ; can't find the default language, it will use english
  12. ; Actually, I've removed the other languages :P
  13.  
  14. (set default_lang 2)
  15.  
  16. ;=============================================================================
  17. ; Slovenian strings
  18.  
  19. ;(if (= @language "slovensko")
  20. ;(
  21. (set default_lang 2)
  22.  
  23. (set #low-user-level
  24. (cat "\nInstalacija programa WebPlug zahteva vsaj izbiro uporabni¹ke kategorije \"Vajen uporabnik\".\n\n"
  25.      "©e enkrat zaènite z instalacijo in izberite ustrezno uporabni¹ko kategorijo."
  26. ))
  27.  
  28. (set #ask-upgrade
  29. (cat "\nJe to nova instalacija ali\n"
  30.      "nadgradnja?\n\n"
  31.      "Ponovna instalacija je enaka nadgradnji"
  32. ))
  33.  
  34. (set #upgr-choice-upgr
  35. (cat "Nadgradnja"
  36. ))
  37.  
  38. (set #upgr-choice-new
  39. (cat "Nova instalacija"
  40. ))
  41.  
  42. (set #which-oldfile
  43. (cat "Kje je program webPlug?\n(Program, NE predal)\n"
  44. ))
  45.  
  46. (set #mess-oldinstaller1
  47. (cat "\nUporabljate staro verzijo\nprograma Installer. (%ld.%ld)\n\n"
  48. ))
  49.  
  50. (set #mess-oldinstaller2
  51. (cat "Prosim uporabite Installer v43.3"
  52. ))
  53.  
  54. (set #mess-obsoletekick
  55. (cat "webPlug potrebuje AmigaDOS verzijo 3.0 ali vi¹jo\nPrej¹nje verzije niso veè podprto..."
  56. ))
  57.  
  58. (set #mess-nomui
  59. (cat "\nwebPlug potrebuje MUI.\nNe najdem muimaster.library.\n\n"
  60.      "Oprostite, z instalacijo ne morem nadaljevati"
  61. ))
  62.  
  63. (set #mess-oldmui
  64. (cat "\nwebPlug potrebuje MUI verzijo 3.8 ali vi¹jo.\n\n"
  65.      "To pomeni muimaster.library ver 19.35\n"
  66.      "Imate verzijo %ld.%ld\n\n"
  67.      "Oprostite,z instalacijo ne morem nadaljevati"
  68. ))
  69.  
  70. (set #which-directory
  71. (cat "Kam hoèete webPlug instalirati?\n(Predal z imenom \"webPlug\" BO ustvarjen)"
  72. ))
  73.  
  74. (set #confirm-adddocs
  75. (cat "\n\nAli ¾elite instalirati (HTML) dokumentacijo?"
  76. ))
  77.  
  78. (set #confirm-custom-dirs
  79. (cat "\n\nAli ¾elite instalirati predala z uporabni¹kimi oznakami in nizi?"
  80. ))
  81.  
  82. (set #which-language
  83. (cat "\nKatere jezike naj instaliram?\n(angle¹èina je vgrajena)"
  84. ))
  85.  
  86. (set #prompt-makemaindir
  87. (cat "Ustvarjam predal webPlug"
  88. ))
  89.  
  90. (set #prompt-copybrowserlinks
  91. (cat "Prekopiral bom predal z 'BrowserLinks'-i"
  92. ))
  93.  
  94. (set #prompt-copyplugins
  95. (cat "Prekopiral bom predal z dodatki"
  96. ))
  97.  
  98. (set #prompt-adddocs
  99. (cat "Prekopiral bom (HTML) dokumentacijo"
  100. ))
  101.  
  102. (set #prompt-texteditor
  103. (cat "Instaliral bom Texteditor.mcc"
  104. ))
  105.  
  106. (set #prompt-betterstring
  107. (cat "Instaliral bom BetterString.mcc"
  108. ))
  109.  
  110. (set #prompt-popcolor
  111. (cat "Instaliral bom PopColor.mcc"
  112. ))
  113.  
  114. (set #prompt-customtags
  115. (cat "Instaliral bom predal z uporabni¹kimi oznakami"
  116. ))
  117.  
  118. (set #prompt-customstrings
  119. (cat "Instaliral bom predal z uporabni¹kimi nizi"
  120. ))
  121.  
  122. (set #prompt-copytoolicons
  123. (cat "Prekopiral bom ikone za orodno vrstico"
  124. ))
  125.  
  126. (set #prompt-executable
  127. (cat "Prekopiral bom program webPlug"
  128. ))
  129.  
  130. (set #mess-congra
  131. (cat "\nÈestitke, webPlug je zdaj instaliran.\n\n"
  132. ))
  133.  
  134. (set #mess-docsfound
  135. (cat "Dokumentacija je v HTML formatu in\n"
  136.      "jo lahko najdete v predalu \"%s\"\n"
  137.      "Prosim, za prebiranje uporabite najljub¹i brkljalnik.\n"
  138.      "Zaènite z datoteko \"webPlug.html\"\n\n"
  139. ))
  140.  
  141. (set #mess-shareware
  142. (cat "webPlug je izdan kot Shareware.\n"
  143.      "Registracija stane le 10 USD, zato se odloèite za\n"
  144.      "registracijo, èe ga uporabljate.\n\n"
  145.      "U¾ivajte!"
  146. ))
  147.  
  148. ;))
  149.  
  150. ;=============================================================================
  151. ; procedure to copy the language catalogs
  152.  
  153. (procedure P_InstLocale
  154. (
  155.     (set n 0)
  156.     (while (set #language (select n "català"
  157.                 "english"
  158.                 "español"
  159. ;                "italiano"
  160. ;                "português"
  161.                 "svenska"
  162. ;                "norsk"
  163.                 "deutsch"
  164.                 "français"
  165.                 "slovensko"
  166.                 ""
  167.    ))
  168.     (
  169.    (if (IN #locales n)
  170.    (
  171.    ;; The english language is built in. No need to install it
  172.       (if (<> 1 n)
  173.       (
  174.           (copyfiles
  175.          (source (tackon "/bin/locale/catalogs/" #language))
  176.          (dest (tackon "LOCALE:Catalogs" #language))
  177.          (all)
  178.    )))))
  179.    (set n (+ n 1))
  180. ))))
  181.  
  182. ;========================================================
  183. ; check user-level
  184.  
  185. (if (< @user-level 1)
  186.     (abort (#low-user-level @app-name))
  187. )
  188.  
  189. ;========================================================
  190. ; variable setup
  191.  
  192. (set #installver (/ @installer-version 65536))
  193. (set #installrev (- @installer-version (* #installver 65536)))
  194. (set #tempversion (getversion))
  195. (set #osversion (/ #tempversion 65536))
  196. (set #osrevision (- #tempversion (* #osversion 65536)))
  197. (set #adddocs 0)
  198. (set #frominstdir (pathonly @icon))
  199. (set #frominstdir (substr #frominstdir 0 (- (strlen #frominstdir) (strlen "/install"))))
  200.  
  201. ;========================================================
  202. ; check installer version
  203.  
  204. (if (< #installver 43)
  205.     (
  206.      (abort (#mess-oldinstaller1 #installver #installrev)
  207.              #mess-oldinstaller2)
  208. ))
  209.  
  210. ;========================================================
  211. ; check kickstart version
  212.  
  213. (if (< #osversion 37)
  214.     (
  215.      (abort #mess-obsoletekick)
  216. ))
  217.  
  218. ;========================================================
  219. ; Display picture
  220.  
  221. (if (> (exists ("c:multiview")) 0) (set #mv "c:") )
  222. (if (> (exists ("sys:utilities/multiview")) 0) (set #mv "sys:Utilities") )
  223. (if (> (exists ("sys:tools/multiview")) 0) (set #mv "sys:Tools") )
  224.  
  225. (if (<> #mv 0)
  226.     ((run (cat "run " (tackon #mv "multiview ") "/docs/pics/webPlugS.gif"))))
  227.  
  228.  
  229. ;========================================================
  230. ; check mui (MUI 3.8 = muimaster.library V19.35)
  231.  
  232. (if (= (exists "LIBS:muimaster.library" (noreq)) 1)
  233.     (
  234.      (set #tempver (getversion "LIBS:muimaster.library"))
  235.      (set #muiver (/ #tempver 65536))
  236.      (set #muirev (- #tempver (* #muiver 65536)))
  237.      (if (< #muiver 19)
  238.     (
  239.      (abort (#mess-oldmui #muiver #muirev))
  240.      )))
  241.   ((abort #mess-nomui))
  242. )
  243.  
  244. ;=============================================================================
  245. ; ask new install or upgrade
  246.  
  247. (set #b-upgrade
  248.    (askbool
  249.       (prompt #ask-upgrade)
  250.       (help @askbool-help)
  251.       (choices #upgr-choice-upgr #upgr-choice-new)
  252.    )
  253. )
  254.  
  255. ;=============================================================================
  256. ; where should webPlug be installed
  257.  
  258. (if (= (exists "Work:" (noreq)) 2)
  259.     (set #def-dest "Work:")
  260.     (set #def-dest "SYS:")
  261.     )
  262.  
  263. ;-----------------------------------------------
  264. ; if upgrade, where is the old program?
  265.  
  266. (if (= 1 #b-upgrade)
  267. (
  268.     (set #oldprogfile
  269.    (askfile
  270.        (prompt #which-oldfile)
  271.        (help @askdir-help)
  272.        (default #def-dest)
  273.    )
  274.     )
  275.     (set #directory (pathonly (#oldprogfile)))
  276.  
  277.     ;; If Docs directory exists, new documentation will be installed!
  278.     (if (= (exists (tackon #directory "Docs") (noreq)) 2)
  279.    (set #adddocs 1)
  280.     )
  281. )
  282.  
  283. ;-----------------------------------------------
  284. ; else new install
  285.  
  286. ((set #directory
  287.    (askdir
  288.        (prompt #which-directory)
  289.        (help @askdir-help)
  290.        (default #def-dest)
  291. ))))
  292. (complete 10)
  293.  
  294. ;=============================================================================
  295. ; should documentation be installed?
  296.  
  297. (if (OR (= #adddocs 0) (= @user-level 2))
  298. (
  299.     (set #adddocs
  300.    (askbool
  301.        (prompt #confirm-adddocs)
  302.        (help @askbool-help)
  303.        (default 1)
  304.     ))
  305. ))
  306. (complete 20)
  307.  
  308. ;=============================================================================
  309. ; should CustomTags and CustomStrins directories be installed?
  310.  
  311. (
  312.    (set #addcustom
  313.    (askbool
  314.        (prompt #confirm-custom-dirs)
  315.        (help @askbool-help)
  316.        (default 1)
  317.     ))
  318. )
  319. (complete 20)
  320.  
  321. ;=============================================================================
  322. ; which languages should be installed?
  323.  
  324. (set #locales
  325.    (askoptions
  326.       (prompt #which-language)
  327.       (help @askoptions-help)
  328.       (choices
  329.                       "Català"
  330.                       "English"
  331.                       "Español"
  332. ;                      "Italiano (not complete)"
  333. ;                      "Português (not complete)"
  334.                      "Svenska"
  335. ;                      "Norsk (not complete)"
  336.                       "Deutsch"
  337.                       "Français"
  338.                       "Slovenskega"
  339.                  )
  340.       (default default_lang)
  341.    )
  342. )
  343. (complete 30)
  344.  
  345. ;=============================================================================
  346. ; if new installation create the main directory
  347.  
  348. (if (= 0 #b-upgrade)
  349. (
  350.    (set @default-dest (tackon #directory "webPlug"))
  351.    (makedir
  352.     (@default-dest)
  353.     (prompt #prompt-makemaindir)
  354.     (help @makedir-help)
  355.     (infos)
  356.    )
  357.    (complete 40)
  358.  
  359. ;-----------------------------------------------
  360. ; and copying icon file for main program/directory
  361.  
  362.    (copyfiles
  363.     (source (cat #frominstdir ".info"))
  364.     (dest (tackon @default-dest '/'))
  365.     (newname 'webPlug.info' )
  366.     (infos)
  367.     (help @copyfiles-help)
  368.    )
  369. )
  370. ;-----------------------------------------------
  371. ; else just set @default-dest
  372.  
  373.     (set @default-dest #directory)
  374. )
  375. (complete 50)
  376.  
  377. ;=============================================================================
  378. ; copy the BrowserLinks directory
  379.  
  380. (copyfiles
  381.    (source "/bin/BrowserLinks")
  382.    (dest (tackon @default-dest "BrowserLinks"))
  383.    (prompt #prompt-copybrowserlinks)
  384.    (all)
  385.    (help @copyfiles-help)
  386. )
  387. (complete 60)
  388.  
  389. ;=============================================================================
  390. ; copy the "toolicons" directory
  391.  
  392. (copyfiles
  393.    (source "/bin/toolicons")
  394.    (dest (tackon @default-dest "toolicons"))
  395.    (prompt #prompt-copytoolicons)
  396.    (all)
  397.    (help @copyfiles-help)
  398. )
  399. (complete 65)
  400.  
  401. ;=============================================================================
  402. ; copy the (HTML) documentation
  403. (set #docs-dest (tackon @default-dest "Docs"))
  404.  
  405. (if (= 1 #adddocs)
  406.    (copyfiles
  407.       (source "/docs")
  408.       (dest #docs-dest)
  409.       (prompt #prompt-adddocs)
  410.       (help @copyfiles-help)
  411.       (all) 
  412.    )
  413. )
  414. (complete 70)
  415. ;=============================================================================
  416. ; copy the CustomTags and CustomStrins directories
  417. (set #docs-dest (tackon @default-dest "Docs"))
  418.  
  419. (if (= 1 #adddocs)
  420.   (
  421.    (copyfiles
  422.       (source "/bin/CustomStrings")
  423.       (dest (tackon @default-dest "CustomStrings"))
  424.       (prompt #prompt-customstrings)
  425.       (all)
  426.       (infos)
  427.       (help @copyfiles-help)
  428.    )
  429.    (copyfiles
  430.       (source "/bin/CustomTags")
  431.       (dest (tackon @default-dest "CustomTags"))
  432.       (prompt #prompt-customstags)
  433.       (all)
  434.       (infos)
  435.       (help @copyfiles-help)
  436.    )
  437.   )
  438. )
  439. (complete 75)
  440. ;=============================================================================
  441. ; install the PopColor.mcc progdir:mui/
  442.  
  443. (copylib
  444.     (source "/bin/mui/popcolor.mcc")
  445.     (dest (tackon @default-dest "mui"))
  446.     (prompt #prompt-popcolor)
  447. )
  448.  
  449. ;=============================================================================
  450. ; install the Texteditor.mcc MUI:Libs/mui/
  451.  
  452. (copylib
  453.     (source "/bin/mui/texteditor.mcc")
  454.     (dest "mui:libs/mui")
  455.     (prompt #prompt-texteditor)
  456. )
  457.  
  458. ;=============================================================================
  459. ; install the BetterString.mcc MUI:Libs/mui/
  460.  
  461. (copylib
  462.     (source "/bin/mui/betterstring.mcc")
  463.     (dest "mui:libs/mui")
  464.     (prompt #prompt-betterstring)
  465. )
  466.  
  467. (complete 85)
  468.  
  469. ;=============================================================================
  470. ; install executable files for webPlug
  471.  
  472. (copyfiles
  473.    (source "/bin/webPlug")
  474.    (dest @default-dest)
  475.    (prompt #prompt-executable)
  476.    (help @copyfiles-help)
  477.    (infos)
  478. )
  479. (complete 90)
  480.  
  481. ;=============================================================================
  482. ; install sample plugins for webPlug
  483.  
  484. (copyfiles
  485.    (source "/bin/webplugins")
  486.    (dest (tackon @default-dest "webplugins"))
  487.    (prompt #prompt-plugins)
  488.    (help @copyfiles-help)
  489.    (infos)
  490.    (all)
  491. )
  492. (complete 95)
  493.  
  494. ;=============================================================================
  495. ; procedure to copy the language catalogs
  496.  
  497. (P_InstLocale)
  498.  
  499. ;=============================================================================
  500. ;Close the mlutiview window
  501.  
  502. (rexx "quit_multiview.rexx")
  503.  
  504. (complete 100)
  505.  
  506. ;=============================================================================
  507. ; That's it!
  508.  
  509. (if (= 1 #adddocs)
  510.    (set #exit-text (cat #mess-congra (#mess-docsfound #docs-dest) #mess-shareware))
  511.    (set #exit-text (cat #mess-congra #mess-shareware) )
  512. )
  513.  
  514. (exit (#exit-text) )
  515.